LEX 'ULAMLEX'
  ID 153
  MSG 0
  POLL 0
POP1N EQU #0BD1C
RJUST EQU #12AE2
DCHXW EQU #0ECDC
HXDCW EQU #0ECB4
FLOAT EQU #1B322
FNRTN4 EQU #0F238
MFERR EQU #09393
  ENTRY ULAM
  CHAR #F
  KEY 'ULAM'
  TOKEN 1
  ENDTXT
  NIBHEX 811
ULAM GOSBVL =POP1N
  GOC IVL
  GOSBVL =RJUST
  GOC IVL
  C=A W
  GOSBVL =DCHXW
  SB=0
  B=0 W
  D=0 W
  D=D+1 B
TEST C=A W
  ?C<=D W
  GOYES DONE
LOOP B=B+1 W
  ASRB
  ?SB=0
  GOYES TEST
  C=C+A W
  GOC IVL
  C=C+1 W
  A=C W
  B=B+1 W
  SB=0
  GONC LOOP (BET)
DONE C=B W
  GOSBVL =HXDCW
  A=C W
  GOSBVL =FLOAT
  C=A W
  GOVLNG =FNRTN4
IVL LCHEX 0B
  GOVLNG =MFERR
  END